home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1997 August / Oasis demo.iso / Office / Claris13 / CLARIS.CST / 00054_Script_54 < prev    next >
Text File  |  1997-03-20  |  680b  |  25 lines
  1. on xtracopy
  2.   
  3.   
  4.   if the platform contains   "mac" then
  5.     
  6.     alert"Automatic copying of Screen Shots is only available for PC users.  Mac users must copy files manually from SCREENS folder on CD ROM."
  7.     put "alert"
  8.   else
  9.     
  10.     openXLib "Xtras\filecopy"  -- custom xtra
  11.     
  12.     set filename = the pathName&"screens\"& the name of cast the mousecast
  13.     
  14.     if fileName > "" then
  15.       set wFileName = doSaveAsDlg(the pathName&"screens\"& the name of cast the mousecast, "Tiffs@*.tif")
  16.       if wFileName > "" then
  17.         copyFile(wFileName, fileName)
  18.       end if  
  19.     end if
  20.     
  21.     closeXLib "Xtras\filecopy"
  22.     
  23.   end if
  24.   
  25. end xtracopy